home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
pascal
/
psgui130.zip
/
PGUIMDEF.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-01-01
|
2KB
|
69 lines
{
╔══════════════════╗
║ Mouse Function ║
║ Defines ║
║ Rev. 1.00 ║
╚══════════════════╝
}
Unit PGUIMDef;
{$F+} {$O-} {$A+} {$G-}
{$V-} {$B-} {$X-} {$N+} {$E+}
{$I FINAL.PAS}
{$IFDEF FINAL}
{$I-} {$R-}
{$D-} {$L-} {$S-}
{$ENDIF}
Interface
Type
BGIMouseShapePtr = ^BGIMouseShape;
BGIMouseShape = Record
Picture :Pointer;
Mask :Pointer;
XHot :Integer;
YHot :Integer;
End;
STDMouseShapePtr = ^STDMouseShape;
STDMouseShape = Record
Picture :Array[1..32] of Byte;
Mask :Array[1..32] of Byte;
XHot :Integer;
YHot :Integer;
End;
MouseProc_Init = Procedure (Installed:Boolean);
MouseProc_Show = Procedure;
MouseProc_Hide = Procedure;
MouseProc_SetSpeed = Procedure (Mousems:Byte);
MouseProc_SetXY = Procedure (X,Y:Word);
MouseProc_SetBounds = Procedure (X1,Y1,X2,Y2:Word);
MouseProc_SetShape = Procedure (Shape:Pointer);
MouseProc_GetPresses = Procedure (Var X,Y:Word;Var Button:Byte;
Var Held:Boolean;Var NumTimes:Word);
MouseProc_GetXY = Procedure (Var X,Y:Word);
MouseProc_GetStatus = Procedure (Var X,Y:Word;
Var Left,Right,Middle:Boolean);
MouseProc_GetClick = Procedure (Var X1, Y1, X2, Y2:Word;
Var MouseButton:Byte;
Var Held,Doubled:Boolean);
Var
ComputerSpeed :LongInt;
Active :Boolean;
Implementation
End.
{ Copyright 1993, Michael Gallias }